home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / cdrom / managecdpics.lha / ManageCDPics / MakeNewDatabase < prev    next >
Encoding:
Text File  |  1994-10-06  |  1001 b   |  25 lines
  1. .bra {
  2. .ket }
  3.  
  4. Version >NIL: exec.library 39
  5.  
  6. If NOT WARN
  7.    Assign MCDP: ""
  8.    RequestChoice >NIL: "Making a new Database:" "First select the directory to scan." "OK"
  9.    RequestFile >ENV:MCDPDir  DRAWER "RAM:" TITLE "Select Dir:" DRAWERSONLY
  10.    RequestChoice >NIL: "Making a new Database:" "Now select a name for the database." "OK"
  11.    RequestFile >ENV:MCDPFile DRAWER "MCDP:CDS" TITLE "Enter Filename:"
  12.    CD $MCDPDir
  13.    Execute MCDP:Script.1 $MCDPFile
  14.    CD MCDP:
  15.    Assign MCDP:
  16.    Delete >NIL: ENV:MCDP#?
  17.    RequestChoice >NIL: "Making a new Database:" "No you may add your comments, and change some entries." "OK"
  18. Else
  19.    Echo "You need at least OS3.0 to use this script, please go to shell and do everything by hand:"
  20.    Echo "1. Assign MCDP: to the directory where the program is located"
  21.    Echo "2. CD the directory you want to scan"
  22.    Echo "3. Execute MCDP:Script.1 MCDP:CDS/<filename> where filename my be the freely chosen"
  23.    Echo "4. Wait until its finished, and Unassign MCDP:"
  24. EndIf
  25.